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ABSTRACT 



Two versions of an analog display program have been assembled for 
the analog display of digitally derived graph plot information. Input to 
the analog display system is the magnetic tape output by the "DRAW" sub- 
routine used at the U. S. Naval Postgraduate School Computer Facility. 

The fast version of the program, driving an oscilloscope as the display ele 
ment, provides a clear and accurate display of the graph points, but is of 
limited usefulness due to the small size of the standard scope face and 
the flicker in the presentation. The slow version, employing an x-y plot- 
ter as the display element, also yields an adequate display, and at a 
slightly fa-ster rate than the existing digital plotter currently used by 
the Computer Facility for graphical output. A linear interpolation routine 
has been implemented in the slow version, so that plotter response is not 
affected by coarseness in the data points. 
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1 . 



Introduction. 






With the increasing use of the CDC 1604 computer at the Naval Post- 
graduate School, the time required for the printing of graph plot out- 
put by the present off-line system has become an item for concern. The 
time required for the present equipment combination (CDC 160, CDC 163, 
and CAL-COMP digital plotter) to complete one graph is usually two to 
three minutes, thereby limiting the system's output to approximately 20 
graphs per hour. By assuming that six hours of CDC 160 time is avail- 
able for graph plotting, and that the average user requests three graphs, 
the conclusion is reached that 40 users could saturate the capability of 
the existing system. These figures point to the desirability of develop- 
ing a faster graph plotting system. 

1.1 Project definition. 

This project was undertaken to investigate the feasibility of 
off-line analog display of graph plot information, with the major emphasis 
on the associated CDC 160 programming effort. More specifically, the 
objective was to generate the CDC 160 programming necessary to display 
the digital graph data on a cathode ray tube device for direct viewing 
or photo-copying. 

1.2 Basic assumptions. 

The analog display program was written within the framework of 
the following assumptions: 

a. The only equipment available to the project was that 
already present at the Naval Postgraduate School. 

b. The specially prepared magnetic tape generated by the 
"DRAW 11 subroutine was to be used as the input to the analog display system. 
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c. The number of cells needed for the CDC 160 program 
should be as few as possible in order to leave maximum room for graph 
plot information in the computers memory. As a goal, one-quarter of the 
memory was allocated to the program. 

d. Refinements, such as curve and ordinate labelling, 
and variable character sizes were considered unessential to the project. 

1.3 The analog display system. 

A block diagram of the analog display system is shown in figure 
1. The tasks assigned to the various elements of the system are as in- 
dicated below: 

a. The CDC 163 magnetic tape unit provides the input 
data to the CDC 160 digital computer from a specially prepared magnetic 
tape. Data format for the tape is described in Appendix 1. 

b. The CDC 160 digital computer reads the graph plot data 
from the magnetic tape as needed, transforms and stores this data in the 
format required by the digital to analog (D/A) conversion equipment, and 
then outputs this transformed data to the conversion equipment in the 
sequence required for a meaningful presentation. 

c. The digital to analog (D/A) conversion equipment converts 
each twelve bit word output by the computer into an analog voltage. 

d. The display element provides a visible trace of the 
analog voltages output by the D/A conversion equipment. 
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2. Computer programming. 



The digital computer tasks were divided into separate routines as 
listed in figure 2, All of these routines were written in relocatable 
form except as noted. 

2.1 ZEST routine. 

Operation of the analog display system program is controlled by 
this routine. The list of acceptable starting addresses and their func- 
tions is given in figure 3. The routine exists to the routine labelled 
"ROT". 

2.2 ROT routine. 

This routine controls the display sequencing of titles, origin,, 
and graph points by employing subroutines and simple parameter manipula- 
tions. The routine is an endless loop and will continue to cause the dis- 
play of graph plot information in the absence of operator interruption 
or equipment malfunction. 

2.3 READ subroutine. 

The main elements in the operation of the READ subroutine are 
listed below: (fixed location - 1530-1741) . 

a. Read and store the number of title lines. 

b. Clear title memory space to permit the subsequent 
search for the last character of a title line. 

c. Read and store one title line, 

d. Find the address of the last BCD character in the title 
line that is not a space or 00 code. 

e. Add the title line end code (77) as the last character 
of the title line. 

f. Pack the title line into the memory file* two BCD charac- 
ters per computer word, 
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g. Index the file pointing cells. 

h. Return to item b. for next title line. Continue 
if no title lines remain to be processed. 

i. Read the location of the origin of the graph plot, 
transform this location to the form required for display, and store in 
computer memory. 

2.4 GREAD subroutine. 

The reading and transformation of the graph points generated 
by the "DRAW" routine is controlled by the GREAD subroutine. The main 
elements are described below: 

a. Store the number of curves to be displayed and set the 
file pointing cells. 

b. Transform (i.e. relocate the origin and change the 
scale of) the graph points to a form suitable for display. The required 
transformation is described in Appendix II. 

c. Index the file pointing cells. 

d. Return to item b. for next curve. Continue if all 
curves have been processed. 

e. If the number of graph points exceeds the available 
memory space, GREAD will reduce the number of curves requested by one, 
reset the magnetic tape to restart the current graph plot and halt in 0007. 
Run to continue. 

2.5 TAP subroutine. 

The Tap subroutine is a general-purpose read/write routine for 
the control of the CDC 163 magnetic tape unit. 

2.6 LTR subroutine. 
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This routine outputs the necessary computer instructions to the 
D/A conversion equipment to form the analog representations of the BCD 
characters stored in memory. Each letter is drawn by forming a series of 
closely spaced voltages so that a nearly continuous series of dots is 
displayed on the oscilloscope. Individual movement codes for character 
generation are recovered from the character table by employment of the 
RNC subroutine. The LTR subroutine is divided into the sections described 
below: 

a. Output the first point of the line in the pen up mode. 

b. Pickup the BCD character from memory. If an end of line 
code (77) is detected, go to item g. 

c. Consult the character table to determine the location 
of the appropriate movement codes. 

d. Pickup the movement code from memory and decode it for 
pen control, direction, number of steps, and step size information. Each 
movement code contains horizontal or vertical information only. If an 
end of letter code (77) is detected, go to item b. 

e. Output motion in one direction. 

f. Set arguments for motion in the other direction and 
return to item d. 

g. Line complete; exit. 

2.7 RNC subroutine. 

The RNC routine reads six bit bytes from a file of two six bit 
words per computer word into the arithmetic register. File tracking is 
performed by a file pointer and a half-word pointer set in low core memory. 
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2.8 Character table. 



The first portion of the Character table (cells 1000-1077) 
contains the memory location of the initial movement codes for a specified 
BCD character. 

The second portion (cells 1100-1527) contins the movement codes 
used by the LTR subroutine in generating the characters of the title line. 
Each novement code is a six bit word which contains information for hori- 
zontal or vertical motion only. The four least significant bits of the 
movement code contain the number of required steps in one direction, the 
most significant bit sets the direction in a positive or negative sense, 
and the remaining bit sets the step size. Special movement codes are 
octal 77, 76, and 75. These codes indicate the end of a character, set 
the pen up (blank), and set the pen down (unblank) respectively. The 
horizontal and vertical movement codes alternate in the table and the 
first code in the table (and the first code after a special code) is a 
horizontal movement code. 

2.9 GRP subroutine. 

This routine takes the contents of the specially prepared graph 
point file in the computer memory and provides the necessary output instruc- 
tions to cause the D/A conversion equipment to output corresponding volt- 
ages for display. The graph point file has a 24 bit word length; the most 
significant 12 bits indicating the horizontal ordinate and the least signi- 
ficant 12 bits (in the computer word) indicating the vertical ordinate of 
the graph point. The file beginning and file end memory locations and a 
file pointing cell are set in low core memory. 
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2.10 DA and LDA subroutines. 



These delay subroutines are used to slow the computation to 
match the characteristics of an x-y plotter display element. The DA 
routine counts to octal 1000 to generate a delay of approximately 6.5 
milliseconds. The LDA routine repeats the DA routine N times, where N is 
the entry argument. 
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3. Discussion of results. 



Two versions of the analog display program have been written; a 
fast version which uses an oscilloscope as the display element; and a 
slow version for use with an x-y plotter. The slow version is essentially 
a delayed version of the fast program with other variations for more re- 
fined pen control and sequencing needed when printing a continuous hard 
copy. Both versions occupy approximately one-quarter of the computer 
memory. 

3.1 Fast version with oscilloscope display element. 

The graph plot display provided by the oscilloscope was clear 
and accurate, but testing has shown that the fast program for direct 
viewing of the scope is not fast enough to prevent flicker. Flicker is 
particularly noticeable in the title line display, and to a reduced de- 
gree in the graph point display. Approximately six characters or 400 
graph points can be displayed without the appearance of flicker, but since 
a normal title contains approximately 90 characters, a twenty to one im- 
provement in cycle time is needed. This improvement is unattainable 
without a change in equipment; a computer with a faster memory or a larger 
memory, or both. A trade off is possible between the speed of operation 
and computer memory space, but the needed improvement is beyond the capa- 
bilities of the computer used. Some improvement could be made in dis- 
play quality by employing an oscilloscope with a long persistence phos- 
phor on the screen of the cathode ray tube. A memcscope was tried as the 
display element, but the particular model used was unsatisfactory due to 
lack of resolution and inadequate horizontal gain. Another approach would 
be to use coded titles, thus decreasing the time required for title dis- 
play. 
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Since the oscilloscope displays a series of dots corresponding 
to the discrete voltages output by the D/A conversion equipment rather 
than a continuous line, some provision must be made for the blanking of 
the unwanted dots as the trace moves from graph point to graph point. 

Two steps are needed in moving from one point (xO, yO) to the next point 
(xl, yl) not on a horizontal or vertical line from the first point. 

Motion is output first in the horizontal direction to a temporary point 
(xl, yO) followed by a vertical move to the desired point (xl, yl). It 
is the intermediate point that must be blanked to provide an uncluttered 
display. A similar situation requiring blanking exists in the spacing 
between letters in the title lines. The necessary blanking is attained 
by employment of the "AND 11 gate described in Appendix II, and shown in 
figure 5. 

The effective viewing area of the standard oscilloscope cathode 
ray tube is a square of approximately three inches on a side. This is not 
adequate for the display of readable titling together with a graph of 
acceptable size. A large DuMont slave oscillograph was considered, but 
it lacked the requisite frequency response for suitable display character- 
istics. 

For direct viewing, no provision is made for the retention of 
the scale grid in the display of the second and subsequent curves of a 
multi-curve graph. Since the "DRAW" routine treats the scale grid simply 
as two separate curves, the simplest solution for retention of the scale 
grid would be to: 

a. Revise the "DRAW" routine to make the scale grid the 
first and second curves on the tape vice the second and third curves as 
in the existing routine, and 
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b. Make a simple modification to the analog display 
program to retain and display the first and second curves in the file 
plus display any number of following curves as desired. 

Polaroid photography yields a picture of an 8 by 10 centimeter 
rectangle of the scope face at approximately 90 percent actual size. 

The hard copy enables the size of the graph relative to the titling to 
be greater than that needed for direct viewing due to greater ease in 
recognition of the title characters. The cost of the photographs is ex- 
cessive, however, at approximately 30 cents per copy. 

Complicated and densely packed curves are not acceptable for 
oscilloscope display due to the lack of curve labelling and the relatively 
low resolution coupled with the small size of the scope face. 

3.2 Slow version with x-y plotter display element. 

The slow version of the analog display program was originally 
assembled as a test instrument for determining the adequacy of the 
character display section of the fast version. By introducing delays at 
appropriate points in the program, the operation was slowed down suffi- 
ciently to drive an x-y plotter, providing a hard copy of all tested 
characters. Results on character readibility were very good since the 
magnitude of the output steps was small enough and the timing slow enough 
for the plotter to follow without overshoot or round-off of the corners. 

The success with the x-y plotter display of characters led to an 
attempt at a delayed curve point plotting routine. Results again were very 
good provided that the spacing between sequential curve points was not so 
large as to cause plotter overshoot. Any attempt to display coarse curve 
point data (eg. the scale grids) on the x-y plotter indicated the need for 
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interpolation between points, either before the data is placed in the 
memory file, or ns the file is output to the conversion equipment, 

A curve plotting routine incorporating linear interpolation be- 
tween curve points was written using the algorithm of program LINE in 
reference [2], The interpolation occurs as the point file is output to 
the D/A conversion equipment, but synthetic delays are still required in 
the computer to match the plotter characteristics. 

A complete slow version of the analog display program was 
eventually assembled that would provide a hard copy of an entire graph on 
the x-y plotter. Pen control and curve definition was clear and accurate 
provided that the synthetic delays were adjusted to allow for plotter re- 
sponse. The size of the graphs could be adjusted up to maximum paper size, 
but with some change in the timing delays which are moderately sensitive 
to plotter scale changes. Preliminary tests have shown that the analog 
display program using the x-y plotter as the display element is just as 
fast (on a unit graph basis) as the existing digital equipment. 

The revised sequencing of the slow version brings only one curve 
into the computer memory file at a time, so that approximately one-quarter 
of the memory is unused, and may be employed to add refinements to the 
display program as desired. 

3 . 3 Summary . 

A fast version of an analog display program has been assembled 
for the use with an oscilloscope as the display element. The display is 
clear and accurate, but is hampered by the small size of the scope face 
and by the flicker in the presentation. The flicker problem cannot be 
overcome using present equipment. 
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A slow version of the display program with an x-y plotter as 
the display element is slightly faster than the existing digital plotter 
on a unit graph basis. An interpolation routine has been implemented for 
point plotting so that coarse input data provides a continuous trace with- 
out plotter overshoot or corner round-off. 
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APPENDIX I 



MAGNETIC TAPE DATA FORMAT 

The magnetic tape generated by the "DRAW" routine and used for input 
to the analog display system program is constructed according to the for- 
mat described below. 

A. Titling data (multiple records). 

1. First record 

a. 12 bit binary mode. 

b. Length - four CDC 160 words. 

c. Word three contains an octal integer indicating 
the number of title lines* The remaining words are not used by the analog 
display program. 

2. Subsequent records. 

a. BCD characters in six bit binary mode. 

b. Length - 120^ characters; the first character is 
not used by the analog display program. 

B. Axes data (single record). 

1. 12 bit binary mode. 

2. Length - 20, CDC 160 words. 

d 

3. The second and eleventh words indicate the position of 
the graph origin in hundredths of an inch from the reference position. 

The remaining words are not used by the analog display program. The 
reference position is the starting point for all dimensions output by 
the '■DRAW 11 routine. 

C. Curve point data (multiple records). 

1. 12 bit binary mode. 
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2. Length ~ 3677 (octal) CDC 160 words. 

3. Horizontal and vertical ordinates alternate: both 

being measured in hundredths of an inch from the reference position. 

4. The first four and the last three words are not used 
by the analog display program. 

5. Two end flags of octal 3777 follow useful curve data. 

D. End of file mark. 

An end of file mark indicates the end of one complete set 
of graph plot data. 

A complete description of the magnetic tape data format is available 
in Reference [2]. 
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APPENDIX II 



DICITAL TO ANALOG EQUIPMENT CHARACTERISTICS 
AND GRAPH POINT TRANSFORMATION SCHEME 

A. The digital to analog (D/A) conversion equipment located in the 
computer laboratory has two channels for digital to analog conversion, 
each of which converts a twelve bit word output by the digital computer 
into a voltage in the range zero to minus ten volts. The corresponding 
bit patterns and output voltages are given in figure 4. The external 
function code for digital to analog conversion is 2.4XY octal, where Y 
indicates the desired channel and X controls operation of an "AND" gate 
that may be used directly or through a connected relay to blank the scope 
trace or lift the recorder pen. Each conversion takes approximately 20 
microseconds (conversion equipment time only) and is accurate to approxi- 
mately 10 millivolts. 

B. A graph point transformation is required for a properly scaled 
and oriented display. The magnetic tape output of the "DRAW" routine 
contains curve data which is based on a reference point in the lower 
left hand corner of the plot. Curve points are given in hundredths of an 
inch from this reference point and are positive octal numbers since up 
and right are taken as the positive directions. Maximum acceptable 
dimensions for the graph plot generated by the "DRAW" routine are 10 
inches in width by 15 inches in length. 

The digital to analog conversion table (Figure 4), shows that 
ns the octal input to the D/A conversion equipment increases, the voltage 
output by the equipment decreases. Normal display devices are oriented so 
that positive inputs yield positive indications to the right and up, so 
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that the curve data must be "inverted" for correct orientation. 

In order to realize the full capabilities of the conversion 
equipment, the input data should be scaled to cover the entire range of 
possible output voltages. Thus, from consideration of the maximum magni- 
tudes of input curve data and of the sizes of graph plots usually generat- 
ed, a compromise scale expansion factor of three is indicated. 

All that remains to complete the point transformation scheme is 
to add to the inverted and expanded data the value of the reference point 
in the new co-ordinate frame. This point was arbitrarily chosen at octal 
2400, 2400 to leave adequate display area for graph titling. 
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APPEMDTX III 



MEMORY FORMAT OF GRAPH DATA FILE 

The graph plot memory file contains a series of title line sections 
followed by curve point data. 

The title line sections are arranged in packed BCD (i.e., two BCD 
characters per 160 word) with the end of a line indicated by the octal 
code 77. The next title line begins with the character following the end 
code. The number of lines in the entire title, and the file location of 
the beginning of the first line are set in low core cells. 

The curve data file is bounded by file begin and file end locations 
set into two low core cells. Each pair of CDC 160 words contain the 
horizontal and vertical ordinates for digital to analog conversion and 
display. 
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APPENDIX IV 



OPERATION OF THE ANALOG DISPLAY PROGRAM 



A. Fast version 

1. Equipment required 

CDC 160 digital computer 

CDC 163 magnetic tape unit 

Digital to analog conversion equipment 

Hewlett-Packard 122A oscilloscope 

Hewlett-Packard 650A oscillator 

General Radio 1217B pulse generator 

2. Blanking scheme shown in Fig. 5. 

3. Load the program in 0000-1773. 

4. Run the program from the address selected from the table of 
starting addresses. (Fig. 3.) 

B. Slow version 

1. Equipment required 

CDC 160 digital computer 

CDC 163 magnetic tape unit 

Digital to analog conversion equipment 

Analog x-y plotter 

2. Blanking scheme shown in Fig. 5. Set plotter switch for remote 
pen control. 

3. Load program in 0000 2077. 

4. For plotting, master clear and run. For tape control, run from 
the address selected from the table of starting addresses. (Fig. 3.) 
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APPENDIX V 



PROGRAM ROUTINE LISTINGS 
The routines are listed in the following order. 

1. ZEST 

2. ROT (fast) 

3. ROT (slow) 

4. READ 

5. GREAD (fast) 

6. GREAD (slow) 

7. TAP 

8. LTR (fast) 

9. LTR (slow) 

10. GRP (fast) 

11. GRP (slow) 

12. CHARACTER TABLE 

13. RNC 

14. LDA and DA (delays) 

15. LOW CORE LIST 
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REM 




MAIN CONTROL; ROUTINE 


0100 


0403 


ZEST 


LDN 


03 


ZERO START 


0101 


6102 


2S 


N 2 F t 


OX 


TWO START 


0102 


0401 




LDN 


01 




0103 


4024 


ux . 


STD 


NOCURl 




0104 


0101 




SHA 


01: 


/ 


0105 


7040 




JPI 


READA, 


/ 

/ 


0106 


0101 


uu 


SHA 


01 




0107 


7046 




JPI 


6READA 




0110 


7045 




JPI 


ROTA 




0111 


6102 


1ST 


NZF; 


UZ 


ONE* START 


0112 


0401 




LDN 


01 




0113 


4024 


uz 


STD 


NOCURi 




0114 


2022 




LDD 


PA 




0115 


4064 




STD 


FP 




0116 


6510 




NZB 


UU 




0117 


7522 


4ST 


EXFi 


BSOEFl 


FOUR START 


0120 


7523 


STR1: 


EXF 


STST 




0121 


7600 




INA 






0122 


0202 




LPN 


02 




0123 


6503 




NZB 


STRl 




0124 


7515: 


5ST 


EXF* 


BSOEFi 


FilVE START 


0125' 


7516 


STR2. 


EXFi 


STST 




0126 


7600 




INA 






0127 


0202 




LPN 


02' 




0130 


6503 




NZB 


STR2' 




0131 


7511 


3ST 


EXF 


RFOEFI 


THREE START 


0132’ 


7113 




JFI 


NSTOPI 




0133 


7511 


6ST 


EXF- 


RWND 


SIX START 


0134 


7507 


STR3. 


EXF 


STST 




0135 ! 


7600 




INA 






0136 


0240 




LPN' 


40 




0137 


6403 




ZJBi 


STR3 




0140 


7105 




JFI 


NSTOPI 




0141; 


1121 


BSOEF* 




1121 




0142 


1131 


RFOEFi 




1131 




0143 


1141 


STST 




1141: 




0144< 


1161 


RWND 




1161 




0145‘ 


0007 


NSTOPi 




07 






0024 


NOCUR 


EQU 


24 










■ • • 




r* 



ZEST 



21 



0040 


READA 


EOU 


40 


0046 


GREADA. 


EOU 


46 


0045 


ROTA 


EQU 


45 


0022 


PA 


EOU 


22 


0064 


FP 


EOU 


64 


0000 




END 






ZEST 







• 


REM 




DISPLAY LOOP 


0100 


0510 


ROT 


LCN 


10 


SET TITLE; ITERATIONS 


0101 


4244. 




STF 


s 




0102 


2020 


CIRCA 


LDD 


XPI 




0103 


4026 




STD 


XPA 


SET TITLE LINE 


0104 


2021 




LDD 


YPI 


initial point; 


0105' 


0640 




ADN 


40 


/ 

/ 


0106 


4027 




STD 


YPA 




0107 


2076 




LDD 


76 




0110 


4234 




STF 


R 




0111 


2025 




LDD 


I FT I LI 




0112 


4203 




STFi 


AX 




0113 


0101: 


LTR 


SHA 


01: 




0114 


7041 




JPI 


LTRA 


DISPLAY A TITLE; LINE 


0115' 


0000 


AX 








0116 


0601 




ADN 


01 




0117 


4302 




STB 


AX 




0120 


2226 




LDF ! 


OS 




0121 


5027 




RAD 


YPA 


GET SET FOR NEXT LINE 


0122 


5622 




AOF 


R 




0123 


6510 




NZB 


LTR 




0124 


5621 




AOF: 


S 




0125' 


6523 




NZB 


CIRCA. 


LOOP TO REPEAT TITLE 


0126 


0540 




LCN 


40 




0127 


4216 




STF 1 


S 


SET CURVE ITERATIONS 


0130 


2075 


C I RCB< 


LDD 


75 




0131 


4026 




STD 


XPA 




0132 


2074 




LDD 


74 




0133 


4027 




STD 


YPA 




0134- 


0101 




SHA 


01 




0135 ; 


7041: 




JPI 


LTRA 


DISPLAY ORIGIN 


0136 


0070 






70 




0137 


0101 




SHA 


01 




0140 


7042 




JPI 


QRPA 


DISPLAY CURVE; DATA 


0141 


5604 


/ 


AOF ! 


S 


T 


0142 


6512 


f 


NZB 


CIRCBi 


LOOP TO REPEAT CURVE; 


0143 


6443 




ZJB 


ROT 


LOOP TO REPEAT CYCLE 


0144- 


0000 


R 








0145 


0000 


S 








0146- 


0200 


OS 




200 








1 



1 



ROT (FAST) 



23 



0020 


XPI 


EOU 


20 


0021: 


YPI 


EOU 


21 


0025 


IFTJli 


EOU 


29 ' 


0026 


XPA 


EOU 


26 


0027 


YPA 


EOU 


27 


0041' 


LTRA- 


EOU 


41! 


0042 


QRPA' 


EQU 


42: 


0000 




END 





ROT (FAST) 
r 



« 



24 







t 


REM 




ROTD DELAYED VERSION 








REM 




DISPLAY LOOP 


0100 


2020 


ROTO' 


L0D 


XPI 


S6TTITLE LINE 


0101 


4026 




STD 


XPA, 


0102 


2021 




LDD 


YPI 


INITIAL POINT 


0103 


0640 




ADN 


40 




0104 


4027 




STD 


YPA 


/ 


0105 


2076 




LDD 


76. 




0106 


4232 




STFi 


R 




0107 


2025' 




LDD 


IFTILI 




0110 


4203 




STF> 


AX 




0111 


0101 


LTR! 


SHA 


01 




0112 


7041. 




JPI 


LTRA 


DISPLAY A TITLE LINE 


0113 


0000 


AX 








0114 


0601' 




ADN 


01 




0115 


4302 




STB; 


AX 




0116 


2223: 




LDF 


OS 




0117 


5027 




RAD 


YPA 


GET SET FOR NEXT LINEi 


0120 


5620 




AOF: 


R 




0121 


6510 




NZB: 


LTR 




0122 


2075' 




LDD 


75 




0123 


4026 




STD 


XPA 




0124 


2074- 




LDD 


74 




0125 


4027 




STD 


YPA 




0126 


0101 




SHA 


01: 




0127 


7041: 




JPI 


LTRA 


"" DISPLAY ORIGIN 


0130 


0070 






70 




0131' 


0101 


NXT 


SHA 


01: 




0132 


7042 




JPI 


GRPA 


DISPLAY CURVEI DATA 


0133 


2022 




LDD 


PA 




0134 


4064 




STD 


FP 




0135 


0101: 




SHA 


01 




0136 


7046 




JPI 


GREADA 




0137 


6506 




NZB 


NXT 




0140' 


0000 


R 








0141 


0200 


OS 




200 


1 




0020 


XPI 


EQU 


20 






0021 


YPI 


EOU 


21: 






0022' 


PA 


EQU' 


22; 






0025' 


IFTILi 


EQU< 


<25! 





ROT (SLOW) 

v 



25 



0026 


XPA 


EQU 


26 


0027 


YPA 


EQU 


27 


0041 


LTRA 


EQU 


41 


0042 


GRPA 


EQU 


42: 


0046 


GREADA 


EQU 


46' 


0064 


FP 


EQU 


64- 


0000 




END 





ROT ( SLOW ) 






26 







• 


REM 




READ4 








REM 




READS AND TRANSFORMS 








REM 




TITLE AND AXIS DATA 




1530 




ORQ 


1530 




1530 


0602 


READ 


ADN 


02 




1531 


4275 




STFi 


XX 


SET RETURN ADDRESS: 


1532 


0101 




SHA. 


01 


/ 


1533 


7043 




JPI 


TAPA 


READ NUMBER OF- 


1534 


6331 






6331 


TITLE LINES: 


1535‘ 


0074' 






74 




1536 


0100 






100 




1537 


6137 




NZF: 


TERA, 




1540 


2477 




LCD 


77 




1541 


4077 




STD 


77 




1542 


4076 




STD 


76 




1543 


2025 




LDD 


I FIT I LI 


SET FILE’ POINTERS 


1544' 


4205 : 




STF: 


UA 




1545' 


0701: 




SBN 


01: 




1546 


4022' 




STD 


PA 




1547 


0400 


TITLs 


LDN 






1550 


4100 




ST 1 




CLEAR TITLE! SPACE* 


1551 


0000 


UA 








1552 


5701: 




AOB> 


UA 




1553 


3606 




SBFt 


G 




1554 


6505 




NZB 


TITU 




1555! 


0101 




SHA 


or 




1556 


7043 




JPI 


TAPA 


READ TITLE LINE! 


1557 


5331 






5331: 




1560 


260 0 1 


F > 




2600 




1561 


3000 


6 




3000 




1562 


6120 




NZFi 


TERBl 




1563 


2302 




LDB 


G 


v 


1564 


070V 




SBN 


01: 




1565- 


4202 




STFl 


CO’ 




1566 


2100 


J 


LDI 




FIND LAST CHARACTER- 


1567 


0 0 0 0 


CO ' 






IN TITLE* LINE* 


1570 


6003 




Z JF 1 


R 




1571 


0720 




SBN 


20 




1572 


6140 




NZFi 


K 




1573. 


0501 


R 

i 


LCN 


01: 




READ 


% 








\ 

\ 



27 



5305 

6507 

4007 

2200 

1540 

6104 

4067 

2200 

1563 

4206 

2067 

0204 

6004 

7704 

7101 

0000 

2067 

0220 

6003 

7720 

7011 

2067 

7777 

6501 

6402 

7101 

0000 

2347 

4357 

6562 

5743 

4203 

0477 

4100 

0000 

5701 

2022 

4062: 

2063' 

6302 

« 





RAB 


CO 






NZB 


J 




TSRA 


STD 


TT 






LDF: 


READ 


10 




NZF > 


TERR 


/ 


TERB 


STD 


TT 


/ 

/ 




LDF i 


READ' 


33. 


TERR 


STF: 


PEX 






LDD 


TT 






LPN 


04- 






ZJF! 


NPAR' 






hlt 


04 


PARITY STOPl 


- 


JFI 


oi- 




REX 

NPAR 


LDD 


TT 


t 




LPN 


20 






ZJF i 


NEOF! 






HLT 


20 


END OF 1 FILE: STOP 




JPI 


ZESTA, 




NEOF t 


LDD 


TT 






hlt 


77 


UNABLE. TO PROCEED 




NZB 


01: 






ZJB 


02: 




RET 


JFI 


01: 


" EXIT 


XX 

T I TLA 


LDB 


F 


. 




STBi 


UA 






NZBi 


TITLl 




K 


AOB 


CO 






STFi 


CA, 


f 5 




LDN 


77 




STI 




ADD END CODE: TO FILE 


CA 










AOB 


CA, 






LDD 


PA 






STD 


P 






LDD 


PH! 


GET SET TO PACK' FILE 




NJFi 


H 





28 



1644 


4463 




SRD 


PH 




1645 


2365: 


Hi 


LDB 


F 




1646 


0601 




ADN 


01 




1647 


4202 




STFi 


D 




1650 


2100 


Ei 


LDI 






1651 


0000 


D 






/ 


1652 


0277 




LPN 


77 


/ 

/ 


1653 


4067 




STD 


TT 




1654 


4463 




SRD 


PH 




1655 


6214 




PJFi 


AB 




1656 


2067 




LDD 


TT 




1657 


1562 




LSI 


P 




1660 


6114 




NZF 


B 




1661 


6013. 




ZJFi 


B 




1662. 


4067 


TERC< 


STD 


TT 




1663 


2200 




LDF' 






1664 


1712: 






READ 162: 




1665’ 


6560 




NZB 


TERR 




1666 


5422: 


RETA 


AOD 


PA 




1667 


4064 




STD 


FP: 


SET FILE INDEX 


1670 


6543 




NZB 


RET 


BO EXIT 


1671 


5462: 


AB 


AOD 


P 




1672 


2067 




LDD 


TT 




1673 


0111 




SHA 


11: 




1674 


4162' 


0' 


STI 


P 


PACK BCD FILE: 


1675 


5724' 




AOB 


D 




1676 


3740 




SBB' 


CA 




1677 


6527 




NZB' 


E 




1700 


2062: 




LDD 


P 




1701 


4022 




STD 


PA 




1702' 


5477 




AOD 


77 


CHECK FOR TITLES 


1703 


6554- 


\ 


NZB 


T I TLA 


COMPLETED 


1704 


0101' 




SHA, 


01 




1705 


7043 




JPI 


TAPA, 


READ AXIS DATA 


1706- 


6331 


< 

U 




6331 




1707 


2600 




2600 


1 


1710 


2640 


V 




2640 




1711 


6527 




NZB' 


TERC' 


<> ■ 


1712 


0502: 




LCN 


02- ' 


1713 


4226< 




STF 


CU: 





READ 

\ 

\ 



29 



1714 

1715 

1716 

1717 

1720 

1721 

1722 

1723 

1724 

1725 ' 

1726 

1727 

1730 

1731 

1732 

1733 

1734 

1735 ' 

1736 

1737 

1740 

1741 

READ 



5215 

0502 

5211 

2310 

0601 

4202 

2500 

0000 

4067 

0102 

3067 

3022 

0640 

4076 

5701 

5704 

5605 ' 

6447 

0411 

5314 - 

6516 

0000 

0022 

0025 

0043 

0062 

0063 

0064 
0067 
0011 
0000 





RAF 


X 




LCN 


02: 




RAF. 


PAP 




LDB 


U 




ADN 


01. 




STF' 


w 


z 


LCI 


/ 


w 


STD 


TT 




SHA, 


02: TRANSFORM AXIS DATA 




ADD 


TT 


PAP 


ADD 


PA. 




ADN 


40 


X 


STD: 


76 STORE ORIGIN LOCATION 




A OB> 


X 




AOB 


PAP. 




AOFl 


CU 




ZJB 


RETA, 




LDN 


11. 




RAB 


W 




NZB 


Z 


CU 






PA 


EOU 


22: 


I FT I L 


EOU 


25! 


tapa 


EOU 


43 


P 


EOU 


62: 


PH 


EOU 


63. _ . 


FP 


EOU 


64 


TT 


EOU 


67. 


ZESTA 


EQU 


11 




END 





r-' 



\ 



\ 



30 









REM 










REM 










RIM 










REM 




0100 


0602: 


GREAD 


ADN 


02 


0101 


4251 




STF 


EXA 


0102 


2424 




LCD 


NOCUR 


0103 


4261: 




STF 


CU 


0104 


2200 




LDF 




0105 


2600 






2600 


0106 


4206 




STF 


Y 


0107 


2064- 


FIG 


LDD 


FP 


0110 


4066' 




STD 


FB 


0111: 


0101 




SHA 


01 


0112 


7043 




JPI 


TAPA. 


0113. 


6331 






6331 


0114 


0 0 00 


Y 






0115: 


7701 






7701: 


0116 


6150 




NZF 


TER 


0117 


2303. 


OK 


LDB 


Y 


0120 


0604 




ADN 


04 


0121: 


4065: 




STD 


FPA 


0122: 


2200' 




LDF 




0123. 


3022. 






3022 


0124' 


4213 




STF 


BB 


0125! 


0502 


FIXA, 


LCN 


02 


0126 


5211, 




RAF 


BB 


0127 


2565: 


FIX 


LCI 


FPA 


0130 


3600 




SBF 




0131. 


4000 


END 




4000 


0132 


6021: 




ZJF 


GAH' 


0133. 


3302 


\ 


ADB 


END 


0134' 


4067 




STD 


TT 


0135! 


0102 




SHA 


02 


0136 


3067 


/ 


ADD 


TT 


0137 


3022 


BB 


ADD 


PA 


0140 


4164- 




STI 


FP 


0141: 


5465' 




AOD 


FPA 


0142 


5464 




AOD 


FP 


0143- 


5704' 




AOB 


BB 



fast gread 

EXPAND BY 3 

fil ADS AND T R ANSFQRM8 

CURVE DATA 

STORE RETURN ADDRESS 
STORE NO. CURVES 

SET FIRST WORD ADDRESS 

SET FILE BEGIN INDEX 

GET CURVE DATA 
FROM TAPE 



^ GET SET TO TRANSFORM 
CURVE DATA 

TEST FOR END. OF DATA 
TRANSFORM CURVE DATA 

INDEX FILE POINTERS 



GREAD (FAST) 

\ 



% 



I>L 



0144 


0202 




LPN 


02 




0145 


6520 




NZB 


F I X A 




0146 


6417 




ZJB 


FIX 




0147 


2064 


EXIT 


LOO 


FP 




0150 


4023 




STD 


FE 




0151 


7101 




JFI 


01. 


EXIT 


0152 


0000 


exa 








0153. 


2466 


GAH 


LCD 


FB 


END OF CURVE DATA 


0154 


3064' 




ADD 


FP 




0155 


5341 




RAB 


Y 




0156 


6326 




NJF 


TESS 


TEST FOR MEMORY 


0157 


3425 




SBD 


I FT I L 


OVERFLOW 


0160 


6326 




NJF 


OFLO 




0161 


5603 


CURL' 


AOF 


CU 




0162 


6413 




ZJB 


EXIT 


TEST FOR JOB COMPLETE 


0163 


6554 




NZB 


FIG 




0164 


0000 


cu 




f 




0165 


0000 


ST 




\ 




0166 


4301 


TER 


STB 


ST 




0167 


0204 




LPN 


04 




0170 


6003 




ZJF 


CT 




0171 


7704 




HLT 


04 


PARITY STOP 


0172, 


6553 




NZB 


OK 




0173 


2306 


CT 


LDB 


ST 




0174 


0220 




LPN 


20 




0175 


6003. 




ZJF 


CK 




0176 


7720 




HLT 


20 


END OF i FILE STOP 


0177 


7011. 




~JPl 


ZESTA 




0200 


2313 


CK 


LDB 


ST 




0201 


7777 




HLT 


77 


UNABLE TO PROCEED 


0202 


6501: 




NZB 


01 




0203 


6402: 




ZJB 


02 




0204 


0677 


TESS 


ADN 


77 




0205' 


6724- 




NJB 


CURL 




0206 


0501: 


OFLO', 


LCN 


01 


MEMORY OVERFLOW 


0207 


5024 




RAD 


NOCUR 


i 


0210 


7016 




JPI 


5STA 






0022: 


PA 


EOU 


22 






0023. 


FE 


EOU 


23 






0024- 


NOCUR 


EOU 


24 





? 

1 1 



6READ (FAST) 



i 



, i 

i , 



I 



0025 


I FT IL 


EOU 


25 


0043 


TAPA 


EOU 


43 


0064 


FP 


EOU 


64 


0 0 65. 


FPA 


EQU 


65 


0066 


FB 


EOU 


66 


0011. 


ZESTA 


EQU 


11 


0016' 


5ST A 


EOU 


16 


0067 


TT 


EQU 


67 


0000 




END 





I 



f 



GREAD (FAST) 



% 



33 







t 


REM 






DELAYED VERSION 








REM 






GREAD 








R6M 






READS CURVi POINTS 








REM 






INTO COMPUTER! MEMORY 








REM 






USE- WITH GRPXD ONLY 


0100 


0602 


GREADX 


ADN 


02 






0101 


4226 




STF: 


EXA 




STORE RETURN ADDRESS 


0102 


0101 




SHA 


01 






0103 


7043. 




JR I 


TAPA 




GET CURVE POINTS 


0104 


6331 






6331 






0105 


2600 


Y 




2600 






0106 


7701: 






7701: 






0107 


6122 




NZFi 


TER* 




ERROR RETURN* 


0110 


2303 


OK 


LDB 


Y 






0111 


0604 




ADN 


04 






0112 


4065 




STD 


FPA 






0113 


2165 ! 


FIX 


LDI 


FPA 


\ 




0114 


3600 




SBFi 




\ 




0115 


3777 


END 




3777 






0 1 1 6 - 


6006 




ZJF 


EXIT 






0117 


3302 




A DB ; 


END. 






0120 


4164 




STI 


FP 




STORE CURVE. POINTS 


0121 


5465' 




AOD 


FPA 




IN FILE 


0122 


5464 




AOD 


FP 






0123 


6510 




NZB 


FIX 






0124 


2064- 


EXIT 


LDD 


FP* 




RETURN 


0125 


4023 




STD 


FEl 






0126 


7101 




JFI 


01 






0127 


0000 


EXA 










0130 


0000 


ST 










0131: 


4301 


TERi 


ST Bi 


ST 






0132 


0204' 




LPN* 


04 






0133. 


6003 




ZJF! 


CT 






0134 


7704- 




HLT 


04 




PARITY ERROR STOPi 


0135 ; 


6525 


/ 


NZB' 


OKi 






0136 


2306 


CT 


LDB- 


ST 




* 


0137 


0220 




LPN' 


20 






0140 


6003. 




ZJF! 


CKi 






0141: 


7720 




HLT 


20 




END OF! FILE* STOP 


0142 


7013: 




JPI 


2ST A 




RUN TO CONTINUE 



GREAD (SLOW) 



0143 


2313 


CK 


LDB 


ST 


TAPE STATUS TO A 


0144 


7777 




HLT 


77 


UNABLE TO PROCEED 


0145' 


6501 




NZB 


01 


START OVER FROM 


0146 


6402 




ZJB 


02 


BEGINNING 




0023 


F6 


EQU 


23. 






0043 


TaPA, 


E Q U ■ 


43: 






0 0 64' 


FP 


EOU 


64 


/ 

/ 




0065' 


FPA 


EOU 


65 ; 






0013 


2STA 


EQU 


13 






0000 




END 







I 



J 



t 



GREAD (SLOW) 



% 



35 



0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0120 

0121 

0122 

0123 

0124 

0125' 

0126 

0127 

0130 

0131 

0132 

0133 

0134- 

0135: 

0136 

0137 

0140 

0141 

0142 

0143 

\ 

TAP 



0602' 

4200 

0000 

2301' 

4202: 

2100 

0000 

4244' 

1200 

3177 

4273 

0207 

3200 

1140 

4261 

7560 

7600' 

0202 ' 

6503 

2230 

1200 

0600 

6052 

0111 

0110 

0103: 

3200 

7115: 

4224 

7500 

1171 

2214 

6303: 

7500 

1172' 

5735: 



• 


REM 








REM 








REM 








REM 






TAPI 


ADN 


02: 






S TF. 






RADD' 










LDB 


RADD 






STF' 


02 




LDARQ 


LDI 








BSS 


01 






STF. 


TAPTRM 


01: 




LPF 


3177 






STF' 


RDFWDl 


01: 




LPN 


07 






ADFi 


1140 


\ 




STF 


STATCD 




STREQi 


EXFi 


STATCD 






INA 








LPN 


02: 






NZB 


STREQi 






LDF! 


TAPTRM 


01 




LPF! 


600 




- 


Z JF ! 


MTERRi 






SHA 


11 






SHA 


10 






SHA 


03. 






ADF> 


7115 






STF‘ 


MTINPI 






EXF' 






, 




1171 






LDF: 


TAPTRM 


01: 




NJF 


03 






EXF 


1172: 






AOB' 


LDARQ' 


01: 



TAP - GENERAL 
CDC 163 MAGNETIC 
TAPE UNIT READ/WRIT6 
ROUTINE 

STORE RETURN ADDRESS 

BUILD EXTERNAL 
FUNCTION CODE! 



BUILD STATUS. REQ. 



STATUS REQUEST 



LOOP UNTIL READY 
BUILD CODE FOR 
INPUT OR OUTPUT 



STORE IT 

SELECT ODD PARITY 

CHECK DESIRED PARITY 

EVEN PARITY DESIRED. 
SELECT EVEN PARITY 



36 



i 



0144 


4202 




STFi 


GETINT 


01: 


0145 


2100 


GETINT 


LDI 






0146 


0000 




BSS 


01 




0147 


4226 




S T Ft 


MTEXIT 


01 


0150 


5702 




AOB 


GETINT 


01 


0151 


4202 




STF 


TAPTRM 


01 


0152 


2100 


taptrmi v 


LDI 






0153 


0000 




BSS 


01 " 




0154 


4205 




STF 


MT INPi 


01: 


0155’ 


0503 




LCN 


03 




0156 


4310 




STB 


GETINT 


01: 


0157 


7526 


RDWT 


EXF. 


RDFWD 


01: 


0160 


7215 


MTINP: 


INP 


MTEXIT 


01 


0161 


0000 




BSS 


01 




0162 


7515 




EXF 


STATCD. 




0163 


7600 




INA 






0164 


0274 




LPN 


74 




0165’ 


4211 




STF' 


BANKSW 




0166 


6125' 




NZF' 


TRYAGN 




0167 


0401: 




LDN 


01: 




0170 


0601 


ERRET 


ADN 


01: 




0171 


3316 




ADB 


TAPTRMi 


01 


0172 


4203 




STF: 


MTEXIT 


01: 


0173. 


2203 




LDFi 


BANKSW 




0174 


7101 


MTEXIT 


JFI 


01 




0175: 


0000 




BSS 


01 




0176 


0000 


BANKSWi 








0177 


0000 


STATCD; 








0200 


0602: 


MTERRi 


ADN 


02’ 




0201 


6501 




NZB 


01 




0202 


5774 




AOB 


LDARQt 


or 


0203 


4306 




STB 


MTEXIT 


01 


0204 


7500 


RDFWD 


EXF! 






0205: 


0000 




BSS 


or 




0206 


2333 




LDB 


TAPTRM 


01 


0207 


6202 


f 


P JF 1 


GO JUMP 1 




0210 


7600 




INA 


• 




0211- 


6515 


GO JUMP! 


NZB 


MTEXIT 




0212: 


6416 




ZJB 


MTEXIT 




0213 


5745 


TRYAGN 


AOB 


GETINT 


01: 



GET INITIAL' ADDRESS 



GET TERMINAL' ADDR. 



INPUT/OUTPUT BLOCK: 
STATUS REQUEST 



STORE STATUS RESP. 
ERROR JUMP 

BUILD, SET EXIT 
ADDRESS 



DELAY LOOP 

BUILD ERROR EXIT 

READ FORWARD OVER 
END OF. FILE: 



UNCONDITIONAL! ERROR 
JUMP TO EXIT 
TRY 3 TIMES 



TAP. 



* 






37 



0214 


6424 


ZJ8 


ERRET 




THEN ERROR EXIT 


0215 


2310 


LDB 


RDFWD 


01 


■ 


0216 


0207 


LPN 


07 






0217 


3200 


ADF 








0220 


1120 




1120 






0221: 


4212 


STF' 


TAPBKS - 


01 




0222 


0620 


ADN 


20 






0223 


4212 


STF 


TAPBKS 


03 




0224 


7511 


EXF 


TAPBKS 


03 




0225 


7600 


INA 








0226 


0202 


LPN 


02, 






0227 


6503 


NZB 


03 




LOOP UNTIL READY 


0230 


0602 


ADN 


02 






0231 


6501 


NZBi 


01 




DELAY LOOP 


0232 


7500 


TAPBKS: EXFi 






BACKSPACE TO 


0233 


0000 


BSS 


01 




END OF: FILE. 


0234 


7500 


EXFi 








0235 


0000 


BSS 


01 






0236 


7600 


INA 








0237 


0202 


LPN 


02 






0240 


6504 


NZB 


04 




LOOP UNTIL READY 


0241 


6462 


ZJB. 


RDWT 




GO' TRY AGAIN 




0000 


END' 









c 



TAP 



i 



38 







• 


REM 




OUTPUTS A LINE OF BCD 








REM 




CHARACTERS TO D/A 








R6M 




argument is First word 








REM 




ADDR. OF PACKED FILE 








REM 




CHARACTER TABLE 








REM' 


- 


MUST BE LOCATED IN 








REM 




CELLS 1000-1527 


0100 


0602 


LTR3B 


ADN 


02 




0101 


4210 




STH 


PP 


STORE ARGUMENT ADDR. 


0102 


2026 


SM 


LDD 


XPA 




0103 


4060 




STD 


XP 




0104 


2027 




LDD 


YPA 


SET GRID POINTERS 


0105 


4061 




STD 


YP 




0106 


2304 




LDBi 


SM 




0107 


4214 


' 


STF 


PO 




0110 


2100 




LDI 






0111 


0000 


PP 




! 




0112 


0701 




SBN 


01 




0113 


4232 




STFl 


FWA 


SET CHARAC. INDEX 


0114 


5703 




AOB 


PP 




0115 


4237 




STF, 


EXADD1 


SET RETURN ADDRESS: 


0116 


2245 




LDF 1 


PUP' 




0117 


4207 




STF 


CDA 




0120 


2236 




LDF 


KH 




0121 


6302 




N JF ! 


PO 




0122 


4634 




SRFi 


KH 




0123 


2026 


PO 


LDD 


XPA 




0124- 


4077 




STD 


OB 




0125 


7500 


CD 


EXFr 






0126 


0000 


CDA 








0127 


7326 




OUT 


KK 


OUTPUT INITIAL POINT 


0130 


0100 






100 




0131 


5703. 




AOB 


CDA 




0132 


5707 




AOBi 


PO' 




0133- 


0207 




LPN 


07 


"■ 


0134 


6511 




NZB 


PO 




0135 


4621 


H 


SRFl 


KH 


o 


0136 


6203 




PJFI 


0 


1 


0137 


2220 




LDFl 


NOP' 




0140 i 


6103 




NZF! 


S 





r> 



LTR 



(FAST) 



0141 


5604 


0 


AOF 


FWA 




0142 


2216 




IDF' 


SH 




0143 


4203 


s 


STF' 


SHIFT 




0144 


2100 




LDI 






0145 


0000 


FWA 








0146 


0000 


SHIFT 








0147 


0277 




LPN 


77 


GET BCD FROM FILE 


0150 


0777 




SBN 


77 


CHECK FOR END 


0151 


6114 




NZF' 


CONT 


JUMP TO CARRY ON 


0152 


2305 


EXIT 


LDB 


FWA 




0153 


7101 




JFI 


01 


EXIT WITH FILE INDEX 


0154 


0000 


EXADD! 






IN ARITHMETIC REGISTER 


0155 


0077 


KK 




77 




0156 


5252 


KH 




5252! 




0157 


0600 


NOPi 




600 




0160 


0111 


SH 




111 


1 


0161 


1077 


TAD 




1077 


t 


0162 


2411 


PDN 




2411 


\ 


0163 


2401 


PUP' 




2401: 




0164 


5060 


RADI 




5060 




0165 


3304 


CONT 


ADB 


TAD 


SET TABLE ADDRESS: 


0166 


4202 




STF 1 


TENT 




0167 


2100 




LDI 






0170 


0000 


TENT 








0171 


4062 




STD 


CP 


^ SET MOVEMENT TABLE 


0172 


2063 




LDD 


CH 


ADDRESS v 


0173 


6302 




N JF i 


0 




0174- 


4463 




SRD 


CH 




0175 


2312 


Q 


LDB 


PUP 




0176 


4256 




STF' 


C 


SET EXF CODE! 


0177 


2313 


STO' 


LDB 


RADI 




0200 


4251 




STF' 


B 




0201 


0101 


Ri 


SHA 


01 




0202 


7044 




JPI 


RNCA 




0203 


6056 


r 


ZJFi 


SK' 




0204' 


4241 


STF: 


MOV 


STORE MOTION CODE' 


0205' 


0775: 




SBN 


75' 


AND DECODE FOR STEPi 


0206' 


6025! 




ZJF! 


DOWN) 


SJZE, NUMBER OF 


0207 


0701: 




SBN 


01: 


STEPS * DIRECTION 


0210' 


6025: 




ZJFi 


UP! 


AND PEN CONTROL' 



J 



LTR (FAST) 



40 



0211 


0701 




SBN 


01 




0212 


6455 




ZJB 


H 




0213 


0677 




ADN 


77 




0214 


0217 




LPN 


17 




0215 


4231 




STFi 


NUM 




0216 


2630 




LCF 


NUM 


/ 


0217 


4227 




STF 1 


NUM 


/ 

/ 


0220 


2225 




LDF i 


MOV 




0221 


0220 




LPN 


20 




0222 


6102 




NZF • 


Z 




0223 


0410 




LDN 


10 




0224 


4223 


Z 


STF 


SIZE' 




0225 


2220 




LDF 


MOV 




0226 


0111. 




SHA 


11 




0227 


6321 




NjF 


A 


GO EXECUTE 


0230 


2617 


NEGt 


LCF, 


SIZE 


j 


0231 


4216 




STF' 


SIZE 


\ 


0232 


6316 




NJFi 


A 


N GO EXECUTE 


0233 


2351 


DOWN 


LDB 


PDN 


SET FOR PEN DOWN 


0234 


6102 




NZF 


SCC 1 




0235 


2352' 


UP 


LDB 


PUP. 


SET FOR PEN UP 


0236 


4216- 


SCC' 


STF> 


C 




0237 


2060 




LDD 


XP 




0240 


4077 




STD 


OB 




0241 


7513 




EXF* 


C 




0242: 


7331 




OUT 


OBA 


EXECUTE PEN 1 CONTROL 


0243 


0100 






100 




0244 


6545' 




NZBi 


STO 




0245 


0000 


MOV 








0246 


0000' 


NUM 






1 


0247 


0000 


SIZE 








0250 


2301- 


A 


LDB 


SIZE' 




0251 


5060 


B 


RAD 


XP' 




0252 


4077 




STD 


OB 


'• 


0253 


7500 




EXF' 




~ 


0254 


0000 


C 








0255' 


7316 




OUT 


OBA 


OUTPUT A STEP' 


0256 


0100 






100 




0257 


5711- 




AOB 1 


NUM 




0260- 


6510 




NZB 


A 


( 



LTR (FAST) 



41 



V. 



0261 


5710 


SK 


AOB 


B 




0262 


5706' 




AOB 


C 


RESET FOR VERTICAL 


0263 


0207 




UPN 


07 


MOTION 


0264 


0703 




SBN 


03. 




0265 


6564 




NZB 


R 




0266* 


0502 




LCN 


02 


RESET FOR HORIZ. 


0267 


5316 




RAB 


B 


MOTION / 


0270 


0502' 




LCN 


02: 




0271 


5315 




RAB 


C 


tr 


0272 


6571 




NZB 


R 




0273 


0077 


OBA 




77 


V 




0077 


08 


EQU 


77 






0026 


XPA. 


EQU 


26 






0027 


YPA 


EQU 


27 






0044 


RNCA. 


EQU 


44- 






0060 


xp 


EQU 


60 i 






0061' 


YP 


EQU' 


61 ' 






0 0 62: 


CP 


EQU 


62: 






0063 


CH 


EQU 


63 






0000 




END 







Z 7 



LTR (FAST) 

« 



42 









REM 




DELAYED VERSION 








REM 




OUTPUTS A LINE OF BCD 








R6M 




OHARAS TENS T0 0/A 








REM 




ARGUMENT IS FIRST WORD 








REM 




ADDR. OF PACKED FILE 








REM 




CHARACTER TABLE 








REM 




MUST BE LOCATED IN 








REM 




CELLS 1000-1527 


0100 


0602 


LTR3D 


ADN 


02' 




0101 


4210 




STF 


PP 


STORE ARGUMENT ADDR. 


0102 


2026 


SM 


LDD 


XPA 




0103 


4060 




STD 


XP 




0104 


2027 




LDD 


YPA 


SET GRID POINTERS 


0105 


4061 




STD 


YP 




0106 


2304 




LDB 


SM 




0107 


4214 




STF 


PO 




0110 


2100 




LDI 


♦ 




0111 


00 00 


PP 




\ 


- 


0112 


0701 




SBN 


01 




0113- 


4235 




STF: 


FWA 


SET CHARAC. INDEX 


0114 


5703 




AOB 


PP 




0115 


4242 




STF 


EXADD: 


SET RETURN ADDRESS 


0116 


2250 




LDF 


PUP 




0117 


4207 




STF 


CDA 




0120 


2241 




LDF 


KH 


X 


0121 


6302 




NJF i 


PO 


N 


0122 


4637 




SRF 


KH 




0123 


2026 


PO 


LDD 


XPA 




0124 


4077 




STD 


OB 




0125 


7500 


CD 


EXF- 






0126 


0000 


CDA/ 








0127 


7331 


\ 


OUT 


KK 


OUTPUT INITIAL POINT 


0130 


0100 






100 




0131 


5703 




AOB 


CDA 




0132 


5707 


/ 


AOB 


PO 


' 


0133 


0207 




LPN 


07 


I 


0134- 


6511 




NZB 


PO 




0135 


0101: 




SHA 


01: 




0136 


7050 




• JPI 


LDA 


DELAY 


0137 


0300 






300 





LTR (SLOW) ^ 



43 

'i. 



0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 
0160 
0161 
0162 

0163 

0164 

0165 

0166 
0167 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 
0200 
0201 
0202 

0203 

0204 

0205 

0206 
0207 



LTR 



4621 


H 


SRF i 


KH 


6203 




PJF 


0 


2220 




LDF' 


NOP 


6103 




NZF 


S 


560 4’ 


0 


A OF i 


FWA 


2216 




LDF 


SH 


4203 


S 


STFi 


SHIFT 


2100 




LDI 




00 00 


F W A 






0000 


SHIFT 






0277 




LPN 


77 


0777 




SBN 


77 


6114 




NZF! 


CONT 


2305 


EXIT 


LDB- 


FWA 


7101; 




JFI 


01 


0000 


EXADD 






0077 


KK 




77 


5252 


KH 




5252 


0600 


NOP 




600 


0111 


SH 




111 


1077 


TAD 




1077 


2411 


PDN 




2411 


2401 


PUP 




2401’ 


5060 


RADI 




5060 


3304 


CONT 


ADB 


TAD 


4202 




STF 


TENT 


2100 




LDI 




0 000 


TENT 






4062 




STD 


CP 


2063 




LDD 


CH 


6302 




NJF 


Q 


4463 




SRD 


CH 


2312 


Q 


LDB 


PUP 


4261 




STF 


C 


2313 


STO 


LDB 


RADI 


4254 


f 


STF 


B 


0101 


R 


SHA 


01 


7044 




JPI 


RNCA 


6064 




ZJF 


SK 


4244 




STF 


MOV 



GET BCD FROM FILE 
CHECK FOR END 
JUMP TO CARRY ON 

EXIT WITH FILE INDEX 
IN ARITHMETIC REGISTER 



SET TABLE ADDRESS 



SET MOVEMENT TABLE 
ADDRESS 



SET EXF CODE 



STORE MOTION CODE 



(SLOW) 



« 



44 



0210 


0775 




SBN 


75 


AND DECODE FOR STEP 


0211 


6025 




ZJF 


DOWN 


SIZE, NUMBER OF 


0212 


0701 




SBN 


01 


STEPS, DIRECTION AND 


0213 


6025 




ZJF 


UP 


PEN CONTROL 


0214 


0701 




SBN 


01 




0215 


6455 




ZJB 


H 




0216 


0677 




ADN 


77 


/ 

/ 


0217 


0217 




LPN 


17 




0220 


4234 




STF 


NUM 




0221 


2633 




LCF 1 


NUM 




0222 


4232 




STF 


NUM 




0223 


2230 




LDF 


MOV 




0224 


0220 




LPN 


20 




0225 


6102 




NZF 


Z 




0226 


0410 




LDN 


10 




0227 


4226 


z 


STF 


SIZE! 




0230 


2223 




LDF 


MOV 




0231 


0111 




SHA 


11 




0232 


6324 




NJF 


A 


GO EXECUTE 


0233 


2622 


NEG 


LCF 


SIZE 




0234 


4221 




STF 


SIZE 




0235 


6321 




NJF 


A 


GO EXECUTE 


0236 


2351 


DOWN 


LDB 


PDN 


SET FOR PEN DOWN 


0237 


6102 


- 


NZF 


see 




0240 


2352 


UP 


LDB 


PUP 


„ SET FOR PEN UP 


0241 


4221 


sec 


STF 


C 


\ 

* S, 


0242 


2060 




LDD 


XP 


0243 


4077 




STD 


OB 




0244 


7516 




EXF* 


C 




0245 


7337 




OUT 


OBA 


EXECUTE PEN CONTROL 


0246 


0100 






100 




0247 


0101 




SHA 


01 




0250 


7050 




JPI 


LDA 


DELAY 


0251 


0 007 






07 


- 


0252 


6450 


MOV 


ZJB 


STO 


""" 


0253 


00 00 








0254 


00 00 


NUM 








0255' 


0000 


SIZE 








0256 


2301 


A 


LDB 


SIZE 


% > 


0257 


5060 


B 


RAD 


XP 





LTR (SLOW) 



45 



0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0300 

0301 

0302 

0303 

0304 

LTR 



OUTPUT A STEP 



4077 




STD 


OB 


7500 




EXF 




0000 


C 






7321 




OUT 


OBA 


0100 






100 


0101 




SHA 


01 


7050 




JPI 


LDA 


0007 






07 


5714 




AOB 


NUM 


6513 




NZB 


A 


5713 


SK 


AOB 


B 


5711 




AOB 


C 


0207 




LPN 


07 


0703 




SBN 


03 


6572 




NZB 


R 


0502 




LCN 


02 


5321 




RAB 


B 


0502 




LCN 


02 


5320 




RAB 


C 


6577 




NZB 


R 


0077 


OBA 




77 


0077 


OB 


EQU 


77 


0026 


XPA 


EQU 


26 


0027 


YPA 


EQU 


27 


0044 


RNCA 


EQU 


44 


0047 


DA 


EQU 


47 


0050 


LDA 


EQU 


50 


0060 


XP 


EQU 


60 


0061 


YP 


EQU 


61 


0062 


CP 


EQU 


62 


0063 


CH 


EQU 


63 


0000 




END 





DELAY 



RESET FOR VERTICAL 
MOTION 



RESET FOR HORIZ. 
MOTION 



) 



f 



(SLOW) 



% 



46 







• 


REM 

REM 

REM 

REM 




0100 


0602 


RNC' 


ADN 


02 


0101 


4213 




STF ' 


A 


0102 


4463. 




SRD 


CH 


0103 


6204 




PJF 


B 


0104 


2162 




LDI 


CP' 


0105 


61 0 5 : 




NZF 


C 


0106 


6 0 04 




ZJF 


C 


0107 


5462 


B 


AOD 


CPI 


0110 


2162 




LDI 


CP 


0111' 


0111 




SHA 


11: 


0112 


0277 


C 


LPN 


77 


0113 

0114 


7101 

0000 


A 


JFI 


01. 




0062: 


CP 


EQU 


62 




0063 

0000 


CH 


EQU 

END: 


63. 



READ NEXT WORD FROM 
FILE OF TWO WORDS PER 
160 WORD. 

EG> PACKED BCD 



/ 



/ 



RNC 



\ 



47 



LONG' DELAY 







• 


REM 




0100 


0602 




ADN 


02 


0101 


4202 




STFt 


A 


0102 


2100 




LDI 




0103 


0000 


A 






0104- 


4067 




STD 


TT 


0105 


2467 




LCD 


TT 


0106 


4067 




STD 


TT 


0107 


5704 




A08‘ 


A 


0110 


4206 




STF ' 


EXH 


0111 


0101 


INN 


SHA 


01 


0112 


7047 




JPI 


DA 


0113. 


5467 




AOD 


TT 


0114 


6503 




NZ8 


INN 


0115' 


7101 




JFI 


01 


0116 


0000 


EXH* 








0067 


TT 


EQU 


67 




0047 


DA 


EQU 


47 




0000' 




END 











REM 




SHORT DELAY 


0100 


0602 


SHORT 


ADN 


02 




0101: 


4205 




STF 


EXH* 




0102; 


2605' 




LCFi 


DEI 




0103 


0601; 




ADN 


01 




0104 


6501 




NZ8* 


01: 




0 1 0 5 1 


7101 


/ 


JFI 


01: 


1 


0106 


0000 


EXHi 








0107 


1000 


DE 




1000 






0000 




END 







DELAY ROUTINES 



48 







• 


REM 




OUTPUTS POINT FILE 








REM 




TO D/A ONE TIME ONLY 








REM 




X POINT PiN UP 








REM 




Y POINT PEN DOWN 


0100 


0602 


GRP3B 


ADN 


02 




0101 


4226 




STF 


G 


STORE RETURN ADDRESS 


0102 


2022 




LDD 


FI 




0103 


4064 




STD 


FP 


INITIALIZE FILE POINTER 


0104 


2224 


M 


IDF 


B 




0105 


4204 




STF 


C 


INITIALIZE EXF CODE 


0106 


2164 


J 


LDI 


FP 




0107 


4077 




STD 


OB 


SET OUTPUT BUFFER 


0110 


7500 




EXF 






0111 


0000 


C 








0112 


7317 




OUT 


K 


OUTPUT D/A 


0113 


0100 






100 




0114 


5464 




AOD 


FP 


INDEX FILE POINTER 


0115 


3423 




SBD 


re 


CHECK FOR GRAPH END 


0116 


6010 




2 JF 


N 


GO EXIT IF END 


0117 


2306 




LDB 


C 




0120 


0611 




ADN 


11 




0121 


4310 




STB 


c 


RESET EXF CODE 


0122 


0207 




LPN 


07 




0123 


0703 




SBN 


03 




0124 


6516 




NZB 


J 


CYCLE BACK FOR Y MOVE 


0125 


6421 




ZJ8 


M 


CYCLE BACK FOR X MOVE 


0126 


7101 


N 


JF I 


01 


EXIT 


0127 


0 000 


G 






EXIT ADDRESS 


0130 


2401 


B 




2401 


EXF CODE 


0131 


0077 
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. 



















1477 


5006 


1500 


0343 


1501 


7623 


1502 


4377 


1503 


7500 


1504 


1000 


1505 


6206 


1506 


2200 


1507 


5076 


1510 


2277 


1511 


7504 


1512 


0061 


1513 


1061 


1514 


0004 


1515 


7622 : 


1516 


6477 


1517 


0021 


1520 


7576 


1521 


2261 


1522 


7700 


1523 


0061 


1524 


7502 


1525 


1442 : 


1526 


7623 


1527 


6577 




0000 



5006 

343 

7623 . 

4377 

7500 

1000 

6206 

2200 

5076 

2277 

7504 

61 

1061 

04 

7622 
6477 
21 

7576 - 

2261 

7700 

61 

7502 

1442 : 

7623 
6577 

END 



Hi 



/ 



I 



PERIOD 



CLOSE 



CHARACTER TABLE. 
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0000 




ORG 


00 


0000 


7011 




JPI 


ZESTA 








RgM 




0001 


7012 




JPI 


1ST A 








REM 




0002 


7013 




JPI 


2ST A 








REM 










REM 




0003 


7014 




JPI 


3ST A 








REM 




0004 


7015 




JPI 


4ST A 








REM 




0005 


7016 




JPI 


5ST A 








REM 




0006 


7017 




JPI 


6ST A 








REM 




0007 


7700 




HLT 




0010 


7013 




JPI 


2ST A 




0011 


ZESTA 


EGU 


11 




0012 


1ST A 


EGU 


12 




0013 


2STA 


EGU 


13 




0014 


3STA 


EGU 


14 




0015 


4STA 


EGU 


15 




0016 


5STA 


EGU 


16 




0017 


6STA 


EGU 


17 




0020 


XPI 


EGU 


20 




0021 


YPI 


EGU 


21 








REM 






0022 


PA 


EGU 


22 




0022 


FI 


EGU 


22 




0023 


FE 


EGU 


23 








REM 






0024 


NOCUR 


EGU 


24 




0025 


I FT I L 


EGU 


25 




0026 


XP A 


EGU 


26 




0027 


YPA 


EGU 


27 




0040 


READA 


EGU 


40 




0041 


LTRA 


EGU 


41 




0042 


GRPA 


EGU 


42 




0043 


tapa 


EGU 


43. 



LOW CORE'. LIST 



« 



64 



NORM. START 3 CURVE 
DISPLAY 

DISPLAY NEXT N 
CURVES, N IN A 
DISPLAY NUMBER OF 
CURVES IN A 
STARTING AT CURVE 1 
ADVANCE MAG TAPE 
TO NEXT GRAPH 
BACK MAG TAPE TO 
PREVIOUS GRAPH 
BACK MAG TAPE TO 
PRESENT GRAPH 
REWIND MAG TAPE 
TO LOAD POINT 



ENTRY ADDRESSES FOR: 
STARTING ROUTINE 



GRAPH REFERENCE 
POSITION, X AND 
Y ORDINATES 
BEGIN. OF GRAPH 
POINT FILE 
END OF GRAPH 
POINT FILE 

NO. OF CURVES DISPLAY 
BEGIN. OF TITLE FILE 
TITLE LINE REFERENCE 
X AND Y ORDINATES 
* LINK ADDRESSES FOR 
SUBROUTINES 



\ 



0044 


RNCA 


EQU 


0045 


ROTA 


EQU 


0046 


GR6ADA 


EQU 


0047 


DA 


EQU 


0050 


LDA 


EQU 


0060 


XP 


EQU 


0061 


YP 


EQU 


0062 


P 


EQU 


0062 


CP 


EQU 


0062 


TP 


EQU 


0063 


PH 


EQU 


0063 


CH 


EQU 


0064 


FP 


EQU 


0065 


FPA 


EQU 


0066 


FB 


EQU 


0067 


TT 


EQU 


0070 


ORIGS 


EQU 


0074 


XOR 


EQU 


0075' 


YOR 


EQU 


0076 


TLCC< 


EQU 


0077 


OB 


EQU 


0000 




END 



z' 



LOW CORE LIST 



« 



TITLE LINE COORDINATE 
TRACKING CELLS 
FILE POINTER 



FILE HALF WORD POINTER 

FILE POINTER 
FILE POINTER 
FILE POINTER 
TEMPORARY 
ORIGIN SYMBOL 
ORIGIN COORDINATES 

TITLE LINE COUNT 
OUTPUT BUFFER 



44 

45 

46 

47 

50 

60 

61 

62 

62 

62 

63 

63 

64 

65’ 

66 

67 

70 

74 

75 

76 

77 

65 




§ 

u 

w 

00 

ct 

I— i 

a 

w 



to 

o 

f-H 

cd 

c 

< 



to 

fc. 
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name task 



ZEST 


Accepts and sequences the starting arguments set by the operator. 


ROT 


Controls the display sequence. 


READ 


Reads, transforms, and stores title and origin data from the 
magnetic tape unit, (Fixed location). 


GREAD 


Reads, transforms, and stores graph point data from the magnetic 
tape unit. 


TAP 


A general purpose read/write routine for the CDC 163 magnetic 
tape unit. 


LTR 


Outputs one line of BCD characters in a form appropriate for 
conversion by the D/A conversion equipment. 


RNC 


Reads six bit characters into the arithmetic register from the 
computer memory. 


CHARAC. 

TABLE 


Contains the movement codes for the generation of letters and 
symbols (fixed location). 


GRP 


Outputs the graph point file to the D/A conversion equipment. 


DA 


Delays computer action for approximately 6.5 milliseconds 
(unit delay). 


LDA 


Delays computer action for N unit delays, where N is an entry 
argument to the routine. 


Figure 2. 


Tasks assigned to program routines. 
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Starting Function 

Address 



0000 


Normal start for graph plot display. 
One curve and the scale grid is shown. 


0001 


Normal start for display of subsequent curves on a 
multiple curve graph. 


0002 


Normal start for display of a given number of curves 

from the beginning of a graph. The number of curves desired 

must be entered in the arithmetic register. 


0003 


Advances the magnetic tape to the beginning of the next graph 
plot. Halt in 0007. 


0004 


Backspaces the magnetic tape to the beginning of the previous 
graph plot. Halt in 0007. 


0005 


Backspaces the magnetic tape to the beginning of the present 
graph plot. Halt in 0007. 


0006 


Rewinds the magnetic tape to the load point. Halt in 0007. 


0010 


Same as 0002 start. 


Figure 3. 


Starting addresses for the display program. 
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volts 
0 



-5 



-10 



3777,4000 


0000, 


.4000 


4000, 


3777.0000 


0000 


0000 


4000 


3777,3777 


0000 


3777 


4000, 



0000 



■10 



3777 
0 volts 



Voltage-Bit Pattern Comparison on Scope Face 



bit pattern input 

4000 

7777 

0000 

3777 



Voltage output 
0 

-5 

-5 

-10 



Figure 4. Digital to analog conversion table and scope face 

diagram 
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Figure 5. Scope blanking and plotter pen-lifting scheme 
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